home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 77 / 077.d81 / hb halloween (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  9.0 KB  |  292 lines
  1. 10 rem **** hb halloween ****
  2. 20 rem....with viewer controlled pauses.
  3. 40 poke53280,0:poke53281,0
  4. 50 v=53248:printchr$(8)
  5. 55 fori=0to10:poke709+i,0:next
  6. 200 :
  7. 205 gosub8104:rem...sprite data
  8. 300 :
  9. 305 gosub8204:rem...text screen m/l
  10. 310 print"[147]"
  11. 350 :
  12. 355 rem **** activate main title ****
  13. 360 sys51718,1,"main title"
  14. 365 sys51721,1,1
  15. 370 rem **** activate sprite ****
  16. 380 poke2040,250:poke2041,251:poke2042,252:poke2043,253
  17. 382 pokev+39,9:pokev+40,9:pokev+41,9:pokev+42,9
  18. 384 pokev+28,15:pokev+37,8:pokev+38,8
  19. 386 pokev+16,15:pokev,10:pokev+2,34:pokev+4,14:pokev+6,38
  20. 388 pokev+1,60:pokev+3,60:pokev+5,81:pokev+7,81
  21. 390 pokev+21,15
  22. 392 poke55408,15:poke55409,15:poke1136,160:poke1137,160
  23. 595 fort=1to5000:next
  24. 600 :
  25. 605 poke55408,0:poke55409,0:pokev+21,0:pokev+16,0
  26. 610 rem gosub10050:rem wipe main title
  27. 615 b$="[147][159]":a$="another story in the":gosub10010
  28. 620 b$="[150]":a$="adventures of huggy bear":gosub10010
  29. 625 b$="[153]":a$="copyright may 1990":gosub10010
  30. 630 b$="":a$="by wm. o. nelson":gosub 10010
  31. 635 b$="[159]":a$="original huggy bear stories (c) 1984":gosub10010
  32. 640 fort=1to5000:next:gosub10050
  33. 642 print"[147][159]after you have read a text
  34. 644 [153]"page or dialog box, press any key to
  35. 646 print"make the story continue. if the screen
  36. 648 [153]"doesn't change right away the computer
  37. 649 print"is busy loading data. if you don't"
  38. 650 print"press a key, the program will continue"
  39. 652 print"after a few seconds.":poke198,0:z9=0
  40. 653 z9=z9+1:geta$:ifa$=""andz9<300then653
  41. 655 gosub10050
  42. 660 print"[147][153]   this story takes place on hallo-"
  43. 665 print"ween, which as you know, is the night"
  44. 670 print"before all saints day and the night of"
  45. 675 print"all souls day. it is said by many that"
  46. 680 print"all the ghosts and spirits come out on"
  47. 685 print"this night. but then, we don't believe"
  48. 690 print"in such things, do we ??????"
  49. 695 print"    huggy bear and his adopted sister"
  50. 700 print"and brother are preparing to go trick"
  51. 705 print"or treating in the neighborhood. you"
  52. 710 print"can go with them if you want to. just"
  53. 715 print"type in your name on the next page..."
  54. 725 gosub8352:gosub8404:gosub8502:poke198,0:z9=0
  55. 730 z9=z9+1:geta$:ifa$=""andz9<200then730
  56. 735 gosub10050
  57. 740 rem
  58. 745 print"[147][159]if you don't want to go with huggy    bear just push return key.
  59. 750 [153]"if you do want to go type your first  name (10 letters or less):
  60. 752 print"";:gosub50000:nm$=q9$
  61. 754 ifnm$=""thenpoke709,0:print"[147]":goto805
  62. 780 poke709,len(nm$)
  63. 790 fori=1tolen(nm$):poke709+i,asc(mid$(nm$,i,1)):next
  64. 800 print"[147]":poke214,14:print"[158]glad to have you along, "nm$"."
  65. 805 poke214,16:print"[158]let's go inside huggy bear's house and"
  66. 810 print"see what's going on."
  67. 850 print"[144]"
  68. 855 print"new"
  69. 860 print"load"chr$(34)"0:hbh2"chr$(34)",8"
  70. 865 print"run"
  71. 870 print"":poke631,13:poke632,13:poke633,13:poke198,3
  72. 890 end
  73. 7998 :
  74. 8000 rem-----sprite & m/l data----
  75. 8102 rem....4 hb sprites (main title)
  76. 8104 fori=16000to16255:reada:pokei,a:next:return
  77. 8110 data000,160,042,002,248,175,011,254
  78. 8112 data191,011,175,191,011,174,255,011
  79. 8114 data238,255,011,255,255,002,251,255
  80. 8116 data000,187,255,000,171,227,000,171
  81. 8118 data227,000,171,254,000,171,254,000
  82. 8120 data043,255,000,043,255,000,042,255
  83. 8122 data000,010,255,000,010,191,000,010
  84. 8124 data188,000,043,175,000,175,250,000
  85. 8126 data160,000,000,248,000,000,254,010
  86. 8128 data000,255,175,128,254,239,224,255
  87. 8130 data170,224,254,234,224,255,171,224
  88. 8132 data254,175,128,242,234,000,243,168
  89. 8134 data000,250,232,000,250,160,000,254
  90. 8136 data224,000,014,160,000,254,128,000
  91. 8138 data170,128,000,170,000,000,162,000
  92. 8140 data000,010,000,000,170,000,000,000
  93. 8142 data002,250,255,010,250,255,010,250
  94. 8144 data238,043,235,255,043,235,251,043
  95. 8146 data235,255,043,239,190,043,235,255
  96. 8148 data043,239,239,043,235,255,043,239
  97. 8150 data251,043,235,255,010,251,191,010
  98. 8152 data251,251,010,251,255,002,250,239
  99. 8154 data002,170,254,000,170,191,000,162
  100. 8156 data238,000,000,000,000,000,000,255
  101. 8158 data250,000,000,254,128,000,239,128
  102. 8160 data000,171,128,000,235,224,000,186
  103. 8162 data224,000,234,224,000,186,248,000
  104. 8164 data234,248,000,186,248,000,234,248
  105. 8166 data000,186,248,000,234,248,000,186
  106. 8168 data248,000,234,224,000,187,224,000
  107. 8170 data235,224,000,163,128,000,226,128
  108. 8172 data000,000,000,000,000,000,000,255
  109. 8200 :
  110. 8202 rem **** text screen loader ****
  111. 8204 fori=51712to52058:readj:pokei,j:next:return
  112. 8206 data76,168,202,76,182,202,76,243
  113. 8208 data202,32,253,174,32,235,183,165
  114. 8210 data20,133,2,224,0,240,38,224
  115. 8212 data6,176,34,202,188,80,203,189
  116. 8214 data75,203,170,165,2,208,23,134
  117. 8216 data253,132,254,169,0,133,251,169
  118. 8218 data216,133,252,32,90,202,169,4
  119. 8220 data133,252,32,90,202,96,32,35
  120. 8222 data203,134,251,132,252,169,216,133
  121. 8224 data254,169,0,133,253,32,90,202
  122. 8226 data169,4,133,254,32,90,202,76
  123. 8228 data48,203,160,0,162,3,177,251
  124. 8230 data145,253,200,208,249,230,252,230
  125. 8232 data254,202,208,242,177,251,145,253
  126. 8234 data200,192,232,208,247,230,252,230
  127. 8236 data254,96,147,13,13,67,79,80
  128. 8238 data89,82,73,71,72,84,32,49
  129. 8240 data57,56,52,13,76,79,85,73
  130. 8242 data83,32,87,65,76,76,65,67
  131. 8244 data69,32,38,13,75,69,78,32
  132. 8246 data70,82,69,78,67,72,13,0
  133. 8248 data162,0,189,122,202,240,6,32
  134. 8250 data210,255,232,208,245,96,32,253
  135. 8252 data174,32,158,183,224,0,240,48
  136. 8254 data224,6,176,44,202,188,80,203
  137. 8256 data132,252,188,75,203,132,251,188
  138. 8258 data85,203,132,254,169,232,133,253
  139. 8260 data32,61,203,32,189,255,32,35
  140. 8262 data203,169,8,170,32,186,255,169
  141. 8264 data251,166,253,164,254,32,216,255
  142. 8266 data76,48,203,32,253,174,32,158
  143. 8268 data183,224,0,240,37,224,6,176
  144. 8270 data33,142,90,203,169,8,170,160
  145. 8272 data0,32,186,255,32,61,203,32
  146. 8274 data189,255,174,90,203,202,188,80
  147. 8276 data203,189,75,203,170,169,0,32
  148. 8278 data213,255,96,165,0,9,1,133
  149. 8280 data0,165,1,41,254,133,1,96
  150. 8282 data165,0,9,1,133,0,165,1
  151. 8284 data9,1,133,1,96,32,253,174
  152. 8286 data32,158,173,32,130,183,166,34
  153. 8288 data164,35,96,0,0,0,0,0
  154. 8290 data160,168,176,184,192,167,175,183
  155. 8292 data191,199,0
  156. 8350 :
  157. 8352 rem **** woman sprite ****
  158. 8354 fori=0to127:reada:poke15872+i,a:next:return:rem poke p,248/249
  159. 8356 data0,60,0,3,255,0,3,255
  160. 8358 data192,0,87,192,0,215,192,0
  161. 8360 data87,240,1,85,0,0,84,0
  162. 8362 data0,84,0,0,16,0,0,168
  163. 8364 data0,2,170,0,2,170,0,10
  164. 8366 data170,0,10,170,0,10,170,0
  165. 8368 data1,170,0,1,170,0,1,168
  166. 8370 data0,1,168,0,1,168,0,0
  167. 8372 data1,168,0,1,170,0,2,170
  168. 8374 data0,2,170,0,2,170,0,2
  169. 8376 data170,0,2,170,0,2,170,0
  170. 8378 data2,170,0,10,170,0,10,170
  171. 8380 data128,0,84,0,0,84,0,0
  172. 8382 data84,0,0,84,0,0,84,0
  173. 8384 data0,84,0,0,84,0,0,84
  174. 8386 data0,3,252,0,12,204,0,0
  175. 8400 :
  176. 8402 rem **** girl sprites
  177. 8404 fori=0to255:reada:pokei+15616,a:next:return
  178. 8406 rem top left, poke p,244
  179. 8410 data0,170,0,0,170,0,2,170
  180. 8412 data128,2,170,128,0,86,160,0
  181. 8414 data86,160,0,69,168,1,85,168
  182. 8416 data0,85,104,0,85,168,0,85
  183. 8418 data168,0,5,168,0,5,168,0
  184. 8420 data63,168,0,255,168,0,255,160
  185. 8422 data0,207,160,0,255,160,0,207
  186. 8424 data32,0,255,0,0,207,0,0
  187. 8425 rem lower left,poke p,245
  188. 8426 data013,250,0,013,250,000,000,170
  189. 8428 data000,0,170,000,000,170,000,002
  190. 8430 data170,128,2,170,128,002,170,128
  191. 8432 data010,170,160,010,170,160,0,020
  192. 8434 data000,0,020,000,000,020,000,000
  193. 8436 data020,0,000,020,000,000,020,000
  194. 8438 data000,020,0,000,060,000,000,060
  195. 8440 data000,0,252,000,000,252,000,000
  196. 8441 rem top right, poke p,246
  197. 8442 data000,042,128,0,042,128,000,170
  198. 8444 data160,0,170,160,002,165,064,002
  199. 8446 data165,064,10,148,064,010,149,080
  200. 8448 data010,085,064,010,149,0,010,149
  201. 8450 data064,010,148,0,010,148,000,010
  202. 8452 data191,0,010,191,192,002,191,192
  203. 8454 data002,188,192,2,191,192,002,060
  204. 8456 data192,0,063,192,000,060,192,000
  205. 8457 rem lower right,poke p,247
  206. 8458 data000,175,112,0,175,112,000,170
  207. 8460 data000,0,170,000,000,170,000,002
  208. 8462 data170,128,2,170,128,002,170,128
  209. 8464 data010,170,160,010,170,160,0,020
  210. 8466 data000,0,020,000,000,020,000,000
  211. 8468 data020,0,000,020,000,000,020,000
  212. 8470 data000,020,0,000,060,000,000,060
  213. 8472 data000,0,063,000,000,063,000,000
  214. 8500 :
  215. 8502 fori=15232to15615:reada:pokei,a:next:return
  216. 8504 rem lower right/walking p,238
  217. 8510 data0,175,112,0,175,112,0,170
  218. 8512 data0,0,170,0,0,170,0,2
  219. 8514 data170,128,2,170,128,2,170,128
  220. 8516 data10,170,160,10,170,160,0,85
  221. 8518 data0,0,85,0,0,85,0,0
  222. 8520 data85,0,1,65,64,1,65,64
  223. 8522 data1,67,192,3,195,240,3,195
  224. 8524 data240,3,240,0,3,240,0,0
  225. 8530 rem lower/left/walking p,239
  226. 8532 data13,250,0,13,250,0,0,170
  227. 8534 data0,0,170,0,0,170,0,2
  228. 8536 data170,128,2,170,128,2,170,128
  229. 8538 data10,170,160,10,170,160,0,85
  230. 8540 data0,0,85,0,0,85,0,0
  231. 8542 data85,0,1,65,64,1,65,64
  232. 8544 data3,193,64,15,195,192,15,195
  233. 8546 data192,0,15,192,0,15,192,0
  234. 8548 rem back/top/standing p,240
  235. 8550 data0,170,0,2,170,128,2,170
  236. 8552 data128,2,170,128,2,170,128,2
  237. 8554 data170,128,2,170,128,0,170,128
  238. 8556 data0,170,0,0,170,0,0,170
  239. 8558 data0,0,42,0,0,40,0,0
  240. 8560 data235,0,3,235,192,3,239,192
  241. 8562 data3,239,192,3,255,192,3,255
  242. 8564 data192,3,255,192,3,255,192,255
  243. 8566 rem  back/lower/lft ft raised p,241
  244. 8568 data3,170,192,3,170,192,0,170
  245. 8570 data0,0,170,0,0,170,0,2
  246. 8572 data170,128,2,170,128,2,170,128
  247. 8574 data10,170,160,10,170,160,0,85
  248. 8576 data0,0,85,0,0,85,0,0
  249. 8578 data85,0,0,85,0,0,245,0
  250. 8580 data0,245,0,0,255,0,0,255
  251. 8582 data0,0,15,0,0,15,0,0
  252. 8584 rem  back/lower/rt ft raised p,242
  253. 8586 data3,170,192,3,170,192,0,170
  254. 8588 data0,0,170,0,0,170,0,2
  255. 8590 data170,128,2,170,128,2,170,128
  256. 8592 data10,170,160,10,170,160,0,85
  257. 8594 data0,0,85,0,0,85,0,0
  258. 8596 data85,0,0,85,0,0,95,0
  259. 8598 data0,95,0,0,255,0,0,255
  260. 8600 data0,0,240,0,0,240,0,0
  261. 8602 rem  back/lower/feet on gnd p,243
  262. 8604 data3,170,192,3,170,192,0,170
  263. 8606 data0,0,170,0,0,170,0,2
  264. 8608 data170,128,2,170,128,2,170,128
  265. 8610 data10,170,160,10,170,160,0,85
  266. 8612 data0,0,85,0,0,85,0,0
  267. 8614 data85,0,0,85,0,0,85,0
  268. 8616 data0,85,0,0,255,0,0,255
  269. 8618 data0,0,255,0,0,255,0,0
  270. 10000 rem----basic subroutines----
  271. 10005 rem **** print from center ****
  272. 10010 a=len(a$):ifa/2<>int(a/2)thena$=a$+""
  273. 10015 fori=1toa/2:print""b$tab(20-i);left$(a$,i)right$(a$,i):print""
  274. 10020 forh=1to10:next:next:return
  275. 10050 :
  276. 10055 rem *** wipe screen vertically ***
  277. 10060 c1=23:c2=19:c3=24:c4=39:c5=59903
  278. 10065 forj=0toc1:c2$=c2$+chr$(32)+chr$(157)+chr$(17):next:c2$=c2$+chr$(145)
  279. 10070 forj=0toc2:ifj=0thenpoke781,c3:sysc5
  280. 10075 print"";tab(j);c2$:print""tab(c4-j);c2$
  281. 10080 next:print"[147]";:c2$=""
  282. 10090 return
  283. 50000 q9$="":poke198,0
  284. 50010 geta$
  285. 50020 poke646,rnd(1)*15+1:print"[164][157]";:ifa$=""then50010
  286. 50030 ifa$=chr$(13)thenprint" ":return
  287. 50040 if(a$=chr$(20)andlen(q9$))thenq9$=left$(q9$,len(q9$)-1):goto50080
  288. 50050 iflen(q9$)>=10then50010
  289. 50060 if(a$<"a"ora$>"z")anda$<>" "then50010
  290. 50070 q9$=q9$+a$
  291. 50080 print""a$;:goto50010
  292.